home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO071.dsk / STARTUP.bas < prev   
BASIC Source File  |  2012-02-16  |  1KB  |  27 lines
  1. 10  SPEED= 255: NOTRACE : TEXT : HOME : GOSUB 100
  2. 12  PRINT  CHR$(4)"-SEARCH.LIB1"
  3. 14  PRINT  CHR$(4)"-SEARCH.LIB2"
  4. 16  GOSUB 200
  5. 18  PRINT  CHR$(4)"PREFIX"
  6. 20  PRINT  CHR$(4)"-SEARCH.BAS"
  7. 22  END 
  8. 100  GOSUB 300: IF OK  THEN  RETURN 
  9. 102  HOME : VTAB 10: HTAB 4: PRINT "            REQUIRES"
  10. 104  HTAB 4: PRINT "ENHANCED APPLE //E, //C, OR IIGS"
  11. 106  HTAB 4: PRINT "WITH AN 80-COLUMN CARD INSTALLED.": END 
  12. 200  & CNTRL,4,223,78: PRINT  CHR$(4)"PR#3"
  13. 202 PT$ = "WORDSEARCH":AU$ = "By Ed Oest"
  14. 204 MT$ =  CHR$(27) + CHR$(15):RT$ =  CHR$(14) + CHR$(24)
  15. 206 A$ = MT$ +"XY" +RT$ +": ####################":B$ = "#########################"
  16. 208 F0$ = A$ +" =" +B$ +" >" +B$:OC = 1403: POKE 34,0: POKE 35,24: VTAB 1: POKE OC,0
  17. 210  &  PRINT USEF0$;"None","Wordsearch Startup",ID$
  18. 212  & LINE,223,79: VTAB 22: POKE OC,0: & LINE,173,79: POKE 34,2: POKE 35,21
  19. 214  & BOX,1,29,7,5,19: VTAB 10: POKE OC,33: PRINT PT$;
  20. 216  VTAB 11: POKE OC,33: PRINT AU$;: VTAB 15: FOR I = 1 TO 2500: NEXT : RETURN 
  21. 300  FOR K = 0 TO 15: READ A: POKE 768 +K,A: NEXT : CALL 768
  22. 302  DATA   56,32,31,254,144,4,169,0,240,2,169,1,141,16,3,96
  23. 304 L = 64448:L =  PEEK(L) + PEEK(L -1) + PEEK(784)
  24. 306 ID = (L = 143) +(L = 468) *5 +(L = 427) *9 +(L = 224) *13 +(L = 255) *17 +(L = 0) *21 +(L = 225) *25
  25. 308 ID$ =  MID$ ("][  ][+ ][e ][e+][c ][c+][gs",ID,4)
  26. 310 OK = 1: IF ID = 1  OR ID = 9  OR ID = 17  THEN OK = 0
  27. 312  RETURN